home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / RCSC.ZIP / PACKAGES / AWK320.ZIP / FMT.AWK < prev    next >
Text File  |  1990-02-08  |  440b  |  23 lines
  1. # fmt - format
  2. #    input:  text
  3. #    output: text formatted into lines of <= 60 characters
  4.  
  5. # AKW p120
  6.  
  7. /./  { for (i = 1; i <= NF; i++) addword($i) }
  8. /^$/ { printline(); print "" }
  9. END  { printline() }
  10.  
  11. function addword(w) {
  12.     if (length(line) + length(w) > 60)
  13.         printline()
  14.     line = line " " w
  15. }
  16.  
  17. function printline() {
  18.     if (length(line) > 0) {
  19.         print substr(line, 2)
  20.         line = ""
  21.     }
  22. }
  23.